(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     57123,       1345]
NotebookOptionsPosition[     55845,       1298]
NotebookOutlinePosition[     56211,       1314]
CellTagsIndexPosition[     56168,       1311]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"$Path", "=", 
   RowBox[{"Reverse", "@", "$Path"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"<<", "TransferMatrixFormalism`"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.6002728441082325`*^9, 3.600272851253045*^9}, {
   3.6002736781050987`*^9, 3.6002736855619116`*^9}, 3.6002737312627926`*^9, {
   3.6002745689606643`*^9, 3.6002745765266776`*^9}, 3.6002747028436995`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FetchURL", "::", "httperr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The request to URL \
\[NoBreak]\\!\\(\\\"http://massaricloud.chem.umn.edu/TransferMatrixFormalism.\
m/releasenotes.txt\\\"\\)\[NoBreak] was not successful. The server returned \
the HTTP status code \[NoBreak]\\!\\(\\\"404 (\\\\\\\"Not \
Found\\\\\\\")\\\"\\)\[NoBreak].\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.600274616072747*^9, 3.6002746811596613`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "nodir"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Directory \[NoBreak]\\!\\(\\\"C:\\\\\\\\Users\\\\\\\\Dan \
O'Brien\\\\\\\\AppData\\\\\\\\Roaming\\\\\\\\Mathematica\\\\\\\\Applications\\\
\\\\\\TransferMatrixFormalism\\\\\\\\TransferMatrixFormalism.m\\\\\\\\\\\"\\)\
\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \
\\\"Export::nodir\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.600274616072747*^9, 3.600274681222061*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"OpenWrite", "::", "noopen"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot open \[NoBreak]\\!\\(\\\"C:\\\\\\\\Users\\\\\\\\Dan \
O'Brien\\\\\\\\AppData\\\\\\\\Roaming\\\\\\\\Mathematica\\\\\\\\Applications\\\
\\\\\\TransferMatrixFormalism\\\\\\\\TransferMatrixFormalism.m\\\\\\\\\
releasenotes.txt\\\"\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/noopen\\\", \
ButtonNote -> \\\"OpenWrite::noopen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.600274616072747*^9, 3.600274681268862*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.600274658224021*^9, 3.6002746768540535`*^9}}],

Cell[BoxData["Dimensions"], "Input",
 CellChangeTimes->{{3.623631123476379*^9, 3.623631124537181*^9}}],

Cell[CellGroupData[{

Cell[BoxData["$TemporaryDirectory"], "Input",
 CellChangeTimes->{{3.6002731469007654`*^9, 3.6002731469007654`*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Local\\\\Temp\"\>"], "Output",
 CellChangeTimes->{3.600273148585568*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "DownloadsServer", "=", "\"\<http://massaricloud.chem.umn.edu/\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"package", "=", "\"\<TransferMatrixFormalism\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\"\<Utilities`URLTools`\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"PackageZip", "=", 
   RowBox[{"URLSave", "[", 
    RowBox[{
     RowBox[{
     "DownloadsServer", "<>", "package", "<>", "\"\</\>\"", "<>", "package", 
      "<>", "\"\<.zip\>\""}], ",", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{"$TemporaryDirectory", ",", 
        RowBox[{"package", "<>", "\"\<.zip\>\""}]}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"URLSave", "[", 
  "\"\<http://massaricloud.chem.umn.edu/TransferMatrixFormalism/\
TransferMatrixFormalism.zip\>\""}]}], "Input",
 CellChangeTimes->{{3.600273193990048*^9, 3.600273248122143*^9}, {
  3.600274310852611*^9, 3.6002743125218143`*^9}, {3.600274360393098*^9, 
  3.600274379144331*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DownloadsServer", "<>", "package", "<>", "\"\<.zip\>\""}]], "Input"],

Cell[BoxData["\<\"http://massaricloud.chem.umn.edu/TransferMatrixFormalism.\
zip\"\>"], "Output",
 CellChangeTimes->{3.6002742255360613`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"BeginPackage", "[", "\"\<test`\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"?", 
  RowBox[{"(*", "PacletManager`", "*)"}], "ZipExtractArchive"}]}], "Input",
 CellChangeTimes->{{3.6002740055050745`*^9, 3.6002741033806467`*^9}}],

Cell[BoxData["\<\"test`\"\>"], "Output",
 CellChangeTimes->{{3.600274081525008*^9, 3.600274104051448*^9}}],

Cell[BoxData["\<\"test`Private`\"\>"], "Output",
 CellChangeTimes->{{3.600274081525008*^9, 3.600274104051448*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Information", "::", "notfound"}], "MessageName"], ":", 
  " ", "\<\"Symbol \[NoBreak]\\!\\(\\\"ZipExtractArchive\\\"\\)\[NoBreak] not \
found. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/notfound\\\", ButtonNote -> \
\\\"Information::notfound\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6002741040826473`*^9}]
}, Open  ]],

Cell[BoxData["FileBaseName"], "Input",
 CellChangeTimes->{{3.600274480489309*^9, 3.600274480489309*^9}}],

Cell[BoxData["InputTransferC"], "Input",
 CellChangeTimes->{{3.6253635416220713`*^9, 3.625363549936886*^9}}],

Cell[CellGroupData[{

Cell[BoxData["$Path"], "Input",
 CellChangeTimes->{{3.6253638977220974`*^9, 3.625363898486499*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\.eclipse\\\\1678130227\\\\configuration\\\\org.eclipse.osgi\\\\\
bundles\\\\10\\\\1\\\\.cp\\\\MathematicaSource\"\>", 
   ",", "\<\"C:/Users/Dan O'Brien/Google \
Drive/WolframWorkSpaces/TransferMatrixFormalism\"\>", 
   ",", "\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Paclets\\\\Repository\\\\\
CUDAResources-Win64-9.0.2.0\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Links\"\>", 
   ",", "\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Kernel\"\>", 
   ",", "\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Autoload\"\>", 
   ",", "\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\"\>", 
   ",", "\<\"C:\\\\ProgramData\\\\Mathematica\\\\Kernel\"\>", 
   ",", "\<\"C:\\\\ProgramData\\\\Mathematica\\\\Autoload\"\>", 
   ",", "\<\"C:\\\\ProgramData\\\\Mathematica\\\\Applications\"\>", 
   ",", "\<\".\"\>", ",", "\<\"C:\\\\Users\\\\Dan O'Brien\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Packages\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\LegacyPackages\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Autoload\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Autoload\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Applications\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\ExtraPackages\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Kernel\\\\Packages\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\Documentation\\\\English\\\\System\"\>", 
   ",", "\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Data\\\\ICC\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6253638990636997`*^9}]
}, Open  ]],

Cell[BoxData["\"\<C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Applications\>\""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DownValues", "[", "InputTransferC", "]"}]], "Input",
 CellChangeTimes->{{3.6253643348976803`*^9, 3.6253643423856936`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`Ep_", ",", 
         "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega_", ",", 
       "InterfacialThinFilmNLS`Private`Theta0_", ",", 
       "InterfacialThinFilmNLS`Private`n0_", ",", 
       RowBox[{"InterfacialThinFilmNLS`Private`ND", ":", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}], ".."}], "}"}]}], ",", 
       "InterfacialThinFilmNLS`Private`nkp1_", ",", 
       "InterfacialThinFilmNLS`Private`v_Integer", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT_", ",", 
       RowBox[{"InterfacialThinFilmNLS`Private`opts", ":", 
        RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"InterfacialThinFilmNLS`Private`ThetaLIST", "=", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "InterfacialThinFilmNLS`Private`Theta0", "}"}], ",", 
          RowBox[{"RefractionAngle", "[", 
           RowBox[{
           "InterfacialThinFilmNLS`Private`Theta0", ",", 
            "InterfacialThinFilmNLS`Private`n0", ",", 
            RowBox[{"Join", "[", 
             RowBox[{
              RowBox[{
              "InterfacialThinFilmNLS`Private`ND", "\[LeftDoubleBracket]", 
               RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
              RowBox[{"{", "InterfacialThinFilmNLS`Private`nkp1", "}"}]}], 
             "]"}]}], "]"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"InputTransferC", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`Ep", ",", 
          "InterfacialThinFilmNLS`Private`Es"}], "}"}], ",", 
        "InterfacialThinFilmNLS`Private`Omega", ",", 
        "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"{", "InterfacialThinFilmNLS`Private`n0", "}"}], ",", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`ND", "\[LeftDoubleBracket]", 
             RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}], "]"}], 
          ",", 
          RowBox[{"{", "InterfacialThinFilmNLS`Private`nkp1", "}"}]}], "]"}], 
        ",", 
        RowBox[{"InterfacialThinFilmNLS`Private`ND", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
        "InterfacialThinFilmNLS`Private`v", ",", 
        "InterfacialThinFilmNLS`Private`nbarINT", ",", 
        "InterfacialThinFilmNLS`Private`opts"}], "]"}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{
      RowBox[{"InputTransferC", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",",
         "InterfacialThinFilmNLS`Private`Omega_", ",", 
        RowBox[{"InterfacialThinFilmNLS`Private`ThetaND", ":", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"_", ",", "_"}], "}"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"_", ",", "_", ",", "_"}], "}"}], ".."}], ",", 
           RowBox[{"{", 
            RowBox[{"_", ",", "_"}], "}"}]}], "}"}]}], ",", 
        "InterfacialThinFilmNLS`Private`v_Integer", ",", 
        "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "/;", 
      RowBox[{"InterfacialThinFilmNLS`Private`v", "\[Equal]", "1"}]}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ReflectTopS", "[", 
        RowBox[{"AbelesS", "[", 
         RowBox[{"\<\"s\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", 
          ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{
            RowBox[{"2", ";;", 
             RowBox[{"-", "2"}]}], ",", "3"}], "\[RightDoubleBracket]"}]}], 
         "]"}], "]"}], "+", "1"}], ")"}], " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es", ",", "0"}], 
      "}"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{
      RowBox[{"InputTransferC", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",",
         "InterfacialThinFilmNLS`Private`Omega_", ",", 
        RowBox[{"InterfacialThinFilmNLS`Private`ThetaND", ":", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"_", ",", "_"}], "}"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"_", ",", "_", ",", "_"}], "}"}], ".."}], ",", 
           RowBox[{"{", 
            RowBox[{"_", ",", "_"}], "}"}]}], "}"}]}], ",", 
        "InterfacialThinFilmNLS`Private`v_Integer", ",", 
        "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "/;", 
      RowBox[{"InterfacialThinFilmNLS`Private`v", ">", 
       RowBox[{
        RowBox[{
        "Length", "[", "InterfacialThinFilmNLS`Private`ThetaND", "]"}], "-", 
        "2"}]}]}], "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"TransmitTopS", "[", 
      RowBox[{"AbelesS", "[", 
       RowBox[{"\<\"s\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"2", ";;", 
           RowBox[{"-", "2"}]}], ",", "3"}], "\[RightDoubleBracket]"}]}], 
       "]"}], "]"}], " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es", ",", "0"}], 
      "}"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega_", ",", 
       RowBox[{"InterfacialThinFilmNLS`Private`ThetaND", ":", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"_", ",", "_", ",", "_"}], "}"}], ".."}], ",", 
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}]}], "}"}]}], ",", 
       "InterfacialThinFilmNLS`Private`v_Integer", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"Plus", "@@", 
      RowBox[{"InternalTransferC", "[", 
       RowBox[{"\<\"0-\"\>", ",", "\<\"vTopSide\"\>", ",", 
        RowBox[{"AbelesSIv", "[", 
         RowBox[{"\<\"s\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", 
          ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{
            RowBox[{"2", ";;", 
             RowBox[{"-", "2"}]}], ",", "3"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}]}], "]"}], 
        ",", 
        RowBox[{"PhaseMv", "[", 
         RowBox[{"InterfacialThinFilmNLS`Private`Omega", ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "1"}], 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "2"}], 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "3"}], 
           "\[RightDoubleBracket]"}]}], "]"}], ",", 
        RowBox[{"AbelesSIIv", "[", 
         RowBox[{"\<\"s\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", 
          ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
           RowBox[{
            RowBox[{"2", ";;", 
             RowBox[{"-", "2"}]}], ",", "3"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}]}], "]"}]}], 
       "]"}]}], " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es", ",", "0"}], 
      "}"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{
      RowBox[{"InputTransferC", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"InterfacialThinFilmNLS`Private`Ep_", ",", "0"}], "}"}], ",",
         "InterfacialThinFilmNLS`Private`Omega_", ",", 
        RowBox[{"InterfacialThinFilmNLS`Private`ThetaND", ":", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"_", ",", "_"}], "}"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"_", ",", "_", ",", "_"}], "}"}], ".."}], ",", 
           RowBox[{"{", 
            RowBox[{"_", ",", "_"}], "}"}]}], "}"}]}], ",", 
        "InterfacialThinFilmNLS`Private`v_Integer", ",", 
        "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "/;", 
      RowBox[{"InterfacialThinFilmNLS`Private`v", "\[Equal]", "1"}]}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"InterfacialThinFilmNLS`Private`Ep", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
             RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "1"}], 
             "\[RightDoubleBracket]"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "#1"}], ")"}]}], ",", "0", ",", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
              "InterfacialThinFilmNLS`Private`ThetaND", 
               "\[LeftDoubleBracket]", 
               RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "2"}], 
               "\[RightDoubleBracket]"}], "/", 
              "InterfacialThinFilmNLS`Private`nbarINT"}], ")"}], "2"], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
             RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "1"}], 
             "\[RightDoubleBracket]"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "#1"}], ")"}]}]}], "}"}]}], "&"}], ")"}], "[", 
     RowBox[{"ReflectTopS", "[", 
      RowBox[{"AbelesS", "[", 
       RowBox[{"\<\"p\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"2", ";;", 
           RowBox[{"-", "2"}]}], ",", "3"}], "\[RightDoubleBracket]"}]}], 
       "]"}], "]"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{
      RowBox[{"InputTransferC", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"InterfacialThinFilmNLS`Private`Ep_", ",", "0"}], "}"}], ",",
         "InterfacialThinFilmNLS`Private`Omega_", ",", 
        RowBox[{"InterfacialThinFilmNLS`Private`ThetaND", ":", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"_", ",", "_"}], "}"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"_", ",", "_", ",", "_"}], "}"}], ".."}], ",", 
           RowBox[{"{", 
            RowBox[{"_", ",", "_"}], "}"}]}], "}"}]}], ",", 
        "InterfacialThinFilmNLS`Private`v_Integer", ",", 
        "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "/;", 
      RowBox[{"InterfacialThinFilmNLS`Private`v", ">", 
       RowBox[{
        RowBox[{
        "Length", "[", "InterfacialThinFilmNLS`Private`ThetaND", "]"}], "-", 
        "2"}]}]}], "]"}], "\[RuleDelayed]", 
    RowBox[{"InterfacialThinFilmNLS`Private`Ep", " ", 
     RowBox[{"TransmitTopS", "[", 
      RowBox[{"AbelesS", "[", 
       RowBox[{"\<\"p\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"2", ";;", 
           RowBox[{"-", "2"}]}], ",", "3"}], "\[RightDoubleBracket]"}]}], 
       "]"}], "]"}], " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"InterfacialThinFilmNLS`Private`v", "+", "1"}], ",", "1"}], 
         "\[RightDoubleBracket]"}], "]"}], ",", "0", ",", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
           "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
            RowBox[{
             RowBox[{"InterfacialThinFilmNLS`Private`v", "+", "1"}], ",", 
             "2"}], "\[RightDoubleBracket]"}], "/", 
           "InterfacialThinFilmNLS`Private`nbarINT"}], ")"}], "2"], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{"InterfacialThinFilmNLS`Private`v", "+", "1"}], ",", "1"}],
           "\[RightDoubleBracket]"}], "]"}]}]}], "}"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"InterfacialThinFilmNLS`Private`Ep_", ",", "0"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega_", ",", 
       RowBox[{"InterfacialThinFilmNLS`Private`ThetaND", ":", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"_", ",", "_", ",", "_"}], "}"}], ".."}], ",", 
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}]}], "}"}]}], ",", 
       "InterfacialThinFilmNLS`Private`v_Integer", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"InterfacialThinFilmNLS`Private`Ep", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
             RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "1"}], 
             "\[RightDoubleBracket]"}], "]"}], " ", 
           RowBox[{"Plus", "@@", "#1"}]}], ",", "0", ",", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
              "InterfacialThinFilmNLS`Private`ThetaND", 
               "\[LeftDoubleBracket]", 
               RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "2"}], 
               "\[RightDoubleBracket]"}], "/", 
              "InterfacialThinFilmNLS`Private`nbarINT"}], ")"}], "2"], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
             RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "1"}], 
             "\[RightDoubleBracket]"}], "]"}], " ", 
           RowBox[{"Subtract", "@@", "#1"}]}]}], "}"}]}], "&"}], ")"}], "[", 
     RowBox[{"InternalTransferC", "[", 
      RowBox[{"\<\"0-\"\>", ",", "\<\"vTopSide\"\>", ",", 
       RowBox[{"AbelesSIv", "[", 
        RowBox[{"\<\"p\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{"2", ";;", 
            RowBox[{"-", "2"}]}], ",", "3"}], "\[RightDoubleBracket]"}], ",", 
         RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}]}], "]"}], ",", 
       RowBox[{"PhaseMv", "[", 
        RowBox[{"InterfacialThinFilmNLS`Private`Omega", ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "1"}], 
          "\[RightDoubleBracket]"}], ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "2"}], 
          "\[RightDoubleBracket]"}], ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{"InterfacialThinFilmNLS`Private`v", ",", "3"}], 
          "\[RightDoubleBracket]"}]}], "]"}], ",", 
       RowBox[{"AbelesSIIv", "[", 
        RowBox[{"\<\"p\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{"2", ";;", 
            RowBox[{"-", "2"}]}], ",", "3"}], "\[RightDoubleBracket]"}], ",", 
         RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}]}], "]"}]}], 
      "]"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`Ep_", ",", 
         "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega_", ",", 
       RowBox[{"InterfacialThinFilmNLS`Private`ThetaND", ":", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"_", ",", "_", ",", "_"}], "}"}], ".."}], ",", 
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}]}], "}"}]}], ",", 
       "InterfacialThinFilmNLS`Private`v_Integer", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"InterfacialThinFilmNLS`Private`Ep", ",", "0"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega", ",", 
       "InterfacialThinFilmNLS`Private`ThetaND", ",", 
       "InterfacialThinFilmNLS`Private`v", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT"}], "]"}], "+", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega", ",", 
       "InterfacialThinFilmNLS`Private`ThetaND", ",", 
       "InterfacialThinFilmNLS`Private`v", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`Ep_", ",", 
         "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega_", ",", 
       RowBox[{"InterfacialThinFilmNLS`Private`ThetaND", ":", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"_", ",", "_", ",", "_"}], "}"}], ".."}], ",", 
          RowBox[{"{", 
           RowBox[{"_", ",", "_"}], "}"}]}], "}"}]}], ",", 
       "InterfacialThinFilmNLS`Private`v_Integer", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT_", ",", 
       RowBox[{"InterfacialThinFilmNLS`Private`opts", ":", 
        RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"InputTransferC", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "InterfacialThinFilmNLS`Private`Ep", ",", 
        "InterfacialThinFilmNLS`Private`Es"}], "}"}], ",", 
      "InterfacialThinFilmNLS`Private`Omega", ",", 
      RowBox[{
      "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
       RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{
      "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
       RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{
      "InterfacialThinFilmNLS`Private`ThetaND", "\[LeftDoubleBracket]", 
       RowBox[{
        RowBox[{"2", ";;", 
         RowBox[{"-", "2"}]}], ",", "3"}], "\[RightDoubleBracket]"}], ",", 
      "InterfacialThinFilmNLS`Private`v", ",", 
      "InterfacialThinFilmNLS`Private`nbarINT", ",", 
      "InterfacialThinFilmNLS`Private`opts"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{
      RowBox[{"InputTransferC", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",",
         "InterfacialThinFilmNLS`Private`Omega_", ",", 
        "InterfacialThinFilmNLS`Private`ThetaLIST_", ",", 
        "InterfacialThinFilmNLS`Private`nlist_", ",", 
        "InterfacialThinFilmNLS`Private`Dlist_", ",", 
        "InterfacialThinFilmNLS`Private`v_", ",", 
        "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "/;", 
      RowBox[{"InterfacialThinFilmNLS`Private`v", "\[Equal]", "1"}]}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ReflectTopS", "[", 
        RowBox[{"AbelesS", "[", 
         RowBox[{"\<\"s\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", 
          ",", "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
          "InterfacialThinFilmNLS`Private`nlist", ",", 
          "InterfacialThinFilmNLS`Private`Dlist"}], "]"}], "]"}], "+", "1"}], 
      ")"}], " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es", ",", "0"}], 
      "}"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{
      RowBox[{"InputTransferC", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",",
         "InterfacialThinFilmNLS`Private`Omega_", ",", 
        "InterfacialThinFilmNLS`Private`ThetaLIST_", ",", 
        "InterfacialThinFilmNLS`Private`nlist_", ",", 
        "InterfacialThinFilmNLS`Private`Dlist_", ",", 
        "InterfacialThinFilmNLS`Private`v_", ",", 
        "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "/;", 
      RowBox[{"InterfacialThinFilmNLS`Private`v", ">", 
       RowBox[{
       "Length", "[", "InterfacialThinFilmNLS`Private`Dlist", "]"}]}]}], 
     "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"TransmitTopS", "[", 
      RowBox[{"AbelesS", "[", 
       RowBox[{"\<\"s\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
        "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
        "InterfacialThinFilmNLS`Private`nlist", ",", 
        "InterfacialThinFilmNLS`Private`Dlist"}], "]"}], "]"}], " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es", ",", "0"}], 
      "}"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega_", ",", 
       "InterfacialThinFilmNLS`Private`ThetaLIST_", ",", 
       "InterfacialThinFilmNLS`Private`nlist_", ",", 
       "InterfacialThinFilmNLS`Private`Dlist_", ",", 
       "InterfacialThinFilmNLS`Private`v_", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"Plus", "@@", 
      RowBox[{"InternalTransferC", "[", 
       RowBox[{"\<\"0-\"\>", ",", "\<\"vTopSide\"\>", ",", 
        RowBox[{"AbelesSIv", "[", 
         RowBox[{"\<\"s\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", 
          ",", "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
          "InterfacialThinFilmNLS`Private`nlist", ",", 
          "InterfacialThinFilmNLS`Private`Dlist", ",", 
          RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}]}], "]"}], 
        ",", 
        RowBox[{"PhaseMv", "[", 
         RowBox[{"InterfacialThinFilmNLS`Private`Omega", ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`ThetaLIST", "\[LeftDoubleBracket]", 
           "InterfacialThinFilmNLS`Private`v", "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`nlist", "\[LeftDoubleBracket]", 
           "InterfacialThinFilmNLS`Private`v", "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`Dlist", "\[LeftDoubleBracket]", 
           RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}], 
           "\[RightDoubleBracket]"}]}], "]"}], ",", 
        RowBox[{"AbelesSIIv", "[", 
         RowBox[{"\<\"s\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", 
          ",", "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
          "InterfacialThinFilmNLS`Private`nlist", ",", 
          "InterfacialThinFilmNLS`Private`Dlist", ",", 
          RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}]}], "]"}]}], 
       "]"}]}], " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es", ",", "0"}], 
      "}"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{
      RowBox[{"InputTransferC", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"InterfacialThinFilmNLS`Private`Ep_", ",", "0"}], "}"}], ",",
         "InterfacialThinFilmNLS`Private`Omega_", ",", 
        "InterfacialThinFilmNLS`Private`ThetaLIST_", ",", 
        "InterfacialThinFilmNLS`Private`nlist_", ",", 
        "InterfacialThinFilmNLS`Private`Dlist_", ",", 
        "InterfacialThinFilmNLS`Private`v_", ",", 
        "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "/;", 
      RowBox[{"InterfacialThinFilmNLS`Private`v", "\[Equal]", "1"}]}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"InterfacialThinFilmNLS`Private`Ep", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`ThetaLIST", 
             "\[LeftDoubleBracket]", "InterfacialThinFilmNLS`Private`v", 
             "\[RightDoubleBracket]"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "#1"}], ")"}]}], ",", "0", ",", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
              "InterfacialThinFilmNLS`Private`nlist", "\[LeftDoubleBracket]", 
               "InterfacialThinFilmNLS`Private`v", "\[RightDoubleBracket]"}], 
              "InterfacialThinFilmNLS`Private`nbarINT"], ")"}], "2"], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`ThetaLIST", 
             "\[LeftDoubleBracket]", "InterfacialThinFilmNLS`Private`v", 
             "\[RightDoubleBracket]"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "#1"}], ")"}]}]}], "}"}]}], "&"}], ")"}], "[", 
     RowBox[{"ReflectTopS", "[", 
      RowBox[{"AbelesS", "[", 
       RowBox[{"\<\"p\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
        "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
        "InterfacialThinFilmNLS`Private`nlist", ",", 
        "InterfacialThinFilmNLS`Private`Dlist"}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{
      RowBox[{"InputTransferC", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"InterfacialThinFilmNLS`Private`Ep_", ",", "0"}], "}"}], ",",
         "InterfacialThinFilmNLS`Private`Omega_", ",", 
        "InterfacialThinFilmNLS`Private`ThetaLIST_", ",", 
        "InterfacialThinFilmNLS`Private`nlist_", ",", 
        "InterfacialThinFilmNLS`Private`Dlist_", ",", 
        "InterfacialThinFilmNLS`Private`v_", ",", 
        "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "/;", 
      RowBox[{"InterfacialThinFilmNLS`Private`v", ">", 
       RowBox[{
       "Length", "[", "InterfacialThinFilmNLS`Private`Dlist", "]"}]}]}], 
     "]"}], "\[RuleDelayed]", 
    RowBox[{"InterfacialThinFilmNLS`Private`Ep", " ", 
     RowBox[{"TransmitTopS", "[", 
      RowBox[{"AbelesS", "[", 
       RowBox[{"\<\"p\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
        "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
        "InterfacialThinFilmNLS`Private`nlist", ",", 
        "InterfacialThinFilmNLS`Private`Dlist"}], "]"}], "]"}], " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`ThetaLIST", "\[LeftDoubleBracket]", 
         RowBox[{"InterfacialThinFilmNLS`Private`v", "+", "1"}], 
         "\[RightDoubleBracket]"}], "]"}], ",", "0", ",", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
           "InterfacialThinFilmNLS`Private`nlist", "\[LeftDoubleBracket]", 
            RowBox[{"InterfacialThinFilmNLS`Private`v", "+", "1"}], 
            "\[RightDoubleBracket]"}], 
           "InterfacialThinFilmNLS`Private`nbarINT"], ")"}], "2"], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaLIST", "\[LeftDoubleBracket]", 
          RowBox[{"InterfacialThinFilmNLS`Private`v", "+", "1"}], 
          "\[RightDoubleBracket]"}], "]"}]}]}], "}"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"InterfacialThinFilmNLS`Private`Ep_", ",", "0"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega_", ",", 
       "InterfacialThinFilmNLS`Private`ThetaLIST_", ",", 
       "InterfacialThinFilmNLS`Private`nlist_", ",", 
       "InterfacialThinFilmNLS`Private`Dlist_", ",", 
       "InterfacialThinFilmNLS`Private`v_", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"InterfacialThinFilmNLS`Private`Ep", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`ThetaLIST", 
             "\[LeftDoubleBracket]", "InterfacialThinFilmNLS`Private`v", 
             "\[RightDoubleBracket]"}], "]"}], " ", 
           RowBox[{"Plus", "@@", "#1"}]}], ",", "0", ",", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
              "InterfacialThinFilmNLS`Private`nlist", "\[LeftDoubleBracket]", 
               "InterfacialThinFilmNLS`Private`v", "\[RightDoubleBracket]"}], 
              "InterfacialThinFilmNLS`Private`nbarINT"], ")"}], "2"], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`ThetaLIST", 
             "\[LeftDoubleBracket]", "InterfacialThinFilmNLS`Private`v", 
             "\[RightDoubleBracket]"}], "]"}], " ", 
           RowBox[{"Subtract", "@@", "#1"}]}]}], "}"}]}], "&"}], ")"}], "[", 
     RowBox[{"InternalTransferC", "[", 
      RowBox[{"\<\"0-\"\>", ",", "\<\"vTopSide\"\>", ",", 
       RowBox[{"AbelesSIv", "[", 
        RowBox[{"\<\"p\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",",
          "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
         "InterfacialThinFilmNLS`Private`nlist", ",", 
         "InterfacialThinFilmNLS`Private`Dlist", ",", 
         RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}]}], "]"}], ",", 
       RowBox[{"PhaseMv", "[", 
        RowBox[{"InterfacialThinFilmNLS`Private`Omega", ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ThetaLIST", "\[LeftDoubleBracket]", 
          "InterfacialThinFilmNLS`Private`v", "\[RightDoubleBracket]"}], ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`nlist", "\[LeftDoubleBracket]", 
          "InterfacialThinFilmNLS`Private`v", "\[RightDoubleBracket]"}], ",", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`Dlist", "\[LeftDoubleBracket]", 
          RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}], 
          "\[RightDoubleBracket]"}]}], "]"}], ",", 
       RowBox[{"AbelesSIIv", "[", 
        RowBox[{"\<\"p\"\>", ",", "InterfacialThinFilmNLS`Private`Omega", ",",
          "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
         "InterfacialThinFilmNLS`Private`nlist", ",", 
         "InterfacialThinFilmNLS`Private`Dlist", ",", 
         RowBox[{"InterfacialThinFilmNLS`Private`v", "-", "1"}]}], "]"}]}], 
      "]"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`Ep_", ",", 
         "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega_", ",", 
       "InterfacialThinFilmNLS`Private`ThetaLIST_", ",", 
       "InterfacialThinFilmNLS`Private`nlist_", ",", 
       "InterfacialThinFilmNLS`Private`Dlist_", ",", 
       "InterfacialThinFilmNLS`Private`v_", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT_"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"InterfacialThinFilmNLS`Private`Ep", ",", "0"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega", ",", 
       "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
       "InterfacialThinFilmNLS`Private`nlist", ",", 
       "InterfacialThinFilmNLS`Private`Dlist", ",", 
       "InterfacialThinFilmNLS`Private`v", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT"}], "]"}], "+", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "InterfacialThinFilmNLS`Private`Es"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega", ",", 
       "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
       "InterfacialThinFilmNLS`Private`nlist", ",", 
       "InterfacialThinFilmNLS`Private`Dlist", ",", 
       "InterfacialThinFilmNLS`Private`v", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"InputTransferC", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "InterfacialThinFilmNLS`Private`Ep_", ",", 
         "InterfacialThinFilmNLS`Private`Es_"}], "}"}], ",", 
       "InterfacialThinFilmNLS`Private`Omega_", ",", 
       "InterfacialThinFilmNLS`Private`ThetaLIST_", ",", 
       "InterfacialThinFilmNLS`Private`nlist_", ",", 
       "InterfacialThinFilmNLS`Private`Dlist_", ",", 
       "InterfacialThinFilmNLS`Private`v_", ",", 
       "InterfacialThinFilmNLS`Private`nbarINT_", ",", 
       RowBox[{"InterfacialThinFilmNLS`Private`opts", ":", 
        RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "InterfacialThinFilmNLS`Private`ds", ",", 
        "InterfacialThinFilmNLS`Private`thetas", ",", 
        "InterfacialThinFilmNLS`Private`ns", ",", 
        "InterfacialThinFilmNLS`Private`inSI", ",", 
        "InterfacialThinFilmNLS`Private`inSII", ",", 
        "InterfacialThinFilmNLS`Private`inPhiv", ",", 
        "InterfacialThinFilmNLS`Private`inTin", ",", 
        RowBox[{"InterfacialThinFilmNLS`Private`voffset", "=", 
         RowBox[{
          RowBox[{"Boole", "[", 
           RowBox[{"!", 
            RowBox[{"OptionValue", "[", "LocalFieldsFromLimits", "]"}]}], 
           "]"}], " ", 
          RowBox[{
           RowBox[{"OptionValue", "[", "InterfaceSide", "]"}], "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}]}]}], ",", 
        RowBox[{"InterfacialThinFilmNLS`Private`TCM", "=", 
         RowBox[{"OptionValue", "[", "TransferCoefficientMethod", "]"}]}], 
        ",", 
        RowBox[{"InterfacialThinFilmNLS`Private`SysSide", "=", 
         RowBox[{
          RowBox[{"OptionValue", "[", "Incidence", "]"}], "[", 
          RowBox[{"{", 
           RowBox[{"\<\"0-\"\>", ",", "\<\"kp1+'\"\>"}], "}"}], "]"}]}], ",", 
        RowBox[{"InterfacialThinFilmNLS`Private`vPos", "=", 
         RowBox[{
          RowBox[{"OptionValue", "[", "InterfaceSide", "]"}], "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\<\"v+\"\>", ",", "\<\"v-\"\>"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"\<\"v+'\"\>", ",", "\<\"v-'\"\>"}], "}"}]}], "}"}], 
          "]"}]}]}], "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`ds", ",", 
          "InterfacialThinFilmNLS`Private`thetas", ",", 
          "InterfacialThinFilmNLS`Private`ns"}], "}"}], "=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"OptionValue", "[", "LocalFieldsFromLimits", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Insert", "[", 
             RowBox[{"InterfacialThinFilmNLS`Private`Dlist", ",", 
              RowBox[{"OptionValue", "[", "SheetThickness", "]"}], ",", 
              "InterfacialThinFilmNLS`Private`v"}], "]"}], ",", 
            RowBox[{"Insert", "[", 
             RowBox[{"InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
              RowBox[{"RefractionAngle", "[", 
               RowBox[{
                RowBox[{
                "InterfacialThinFilmNLS`Private`ThetaLIST", 
                 "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
                RowBox[{
                "InterfacialThinFilmNLS`Private`nlist", 
                 "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
                "InterfacialThinFilmNLS`Private`nbarINT"}], "]"}], ",", 
              RowBox[{"InterfacialThinFilmNLS`Private`v", "+", "1"}]}], "]"}],
             ",", 
            RowBox[{"Insert", "[", 
             RowBox[{
             "InterfacialThinFilmNLS`Private`nlist", ",", 
              "InterfacialThinFilmNLS`Private`nbarINT", ",", 
              RowBox[{"InterfacialThinFilmNLS`Private`v", "+", "1"}]}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "InterfacialThinFilmNLS`Private`Dlist", ",", 
            "InterfacialThinFilmNLS`Private`ThetaLIST", ",", 
            "InterfacialThinFilmNLS`Private`nlist"}], "}"}]}], "]"}]}], ";", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"InterfacialThinFilmNLS`Private`inSI", "[", "#1", "]"}],
               ",", 
              RowBox[{
              "InterfacialThinFilmNLS`Private`inSII", "[", "#1", "]"}]}], 
             "}"}], "=", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"AbelesSIv", "[", 
               RowBox[{
               "#1", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
                "InterfacialThinFilmNLS`Private`thetas", ",", 
                "InterfacialThinFilmNLS`Private`ns", ",", 
                "InterfacialThinFilmNLS`Private`ds", ",", 
                RowBox[{
                "InterfacialThinFilmNLS`Private`v", "+", 
                 "InterfacialThinFilmNLS`Private`voffset"}]}], "]"}], ",", 
              RowBox[{"AbelesSIIv", "[", 
               RowBox[{
               "#1", ",", "InterfacialThinFilmNLS`Private`Omega", ",", 
                "InterfacialThinFilmNLS`Private`thetas", ",", 
                "InterfacialThinFilmNLS`Private`ns", ",", 
                "InterfacialThinFilmNLS`Private`ds", ",", 
                RowBox[{
                "InterfacialThinFilmNLS`Private`v", "+", 
                 "InterfacialThinFilmNLS`Private`voffset"}]}], "]"}]}], 
             "}"}]}], ")"}], "&"}], ")"}], "/@", 
        RowBox[{"{", 
         RowBox[{"\<\"s\"\>", ",", "\<\"p\"\>"}], "}"}]}], ";", 
       RowBox[{"InterfacialThinFilmNLS`Private`inPhiv", "=", 
        RowBox[{"PhaseMv", "[", 
         RowBox[{"InterfacialThinFilmNLS`Private`Omega", ",", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`thetas", "\[LeftDoubleBracket]", 
           RowBox[{
           "InterfacialThinFilmNLS`Private`v", "+", "1", "+", 
            "InterfacialThinFilmNLS`Private`voffset"}], 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{"InterfacialThinFilmNLS`Private`ns", "\[LeftDoubleBracket]", 
           RowBox[{
           "InterfacialThinFilmNLS`Private`v", "+", "1", "+", 
            "InterfacialThinFilmNLS`Private`voffset"}], 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{"Quiet", "[", 
           RowBox[{
           "InterfacialThinFilmNLS`Private`ds", "\[LeftDoubleBracket]", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`v", "+", 
             "InterfacialThinFilmNLS`Private`voffset"}], 
            "\[RightDoubleBracket]"}], "]"}]}], "]"}]}], ";", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
          "InterfacialThinFilmNLS`Private`inTin", "[", 
           "InterfacialThinFilmNLS`Private`vp", "]"}], "=", 
          RowBox[{"PadRight", "[", 
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"InterfacialThinFilmNLS`Private`tauIN", "[", 
                 RowBox[{
                 "InterfacialThinFilmNLS`Private`TCM", ",", 
                  "InterfacialThinFilmNLS`Private`SysSide", ",", 
                  "InterfacialThinFilmNLS`Private`vp", ",", 
                  RowBox[{
                  "InterfacialThinFilmNLS`Private`inSI", "[", "#1", "]"}], 
                  ",", "InterfacialThinFilmNLS`Private`inPhiv", ",", 
                  RowBox[{
                  "InterfacialThinFilmNLS`Private`inSII", "[", "#1", "]"}]}], 
                 "]"}], "&"}], ")"}], "/@", 
              RowBox[{"{", 
               RowBox[{"\<\"p\"\>", ",", "\<\"s\"\>"}], "}"}]}], "]"}], ",", 
            "3"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{
          "InterfacialThinFilmNLS`Private`vp", ",", 
           "InterfacialThinFilmNLS`Private`vPos"}], "}"}]}], "]"}], ";", 
       RowBox[{
        RowBox[{
         RowBox[{"InterfacialThinFilmNLS`Private`J", "[", 
          RowBox[{
           RowBox[{
           "InterfacialThinFilmNLS`Private`ns", "\[LeftDoubleBracket]", 
            RowBox[{
            "InterfacialThinFilmNLS`Private`v", "+", "1", "+", 
             "InterfacialThinFilmNLS`Private`voffset"}], 
            "\[RightDoubleBracket]"}], ",", 
           "InterfacialThinFilmNLS`Private`nbarINT"}], "]"}], ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"InterfacialThinFilmNLS`Private`Pr", "[", 
             RowBox[{"-", 
              RowBox[{
              "InterfacialThinFilmNLS`Private`thetas", "\[LeftDoubleBracket]", 
               RowBox[{
               "InterfacialThinFilmNLS`Private`v", "+", "1", "+", 
                "InterfacialThinFilmNLS`Private`voffset"}], 
               "\[RightDoubleBracket]"}]}], "]"}], ".", 
            RowBox[{"InterfacialThinFilmNLS`Private`inTin", "[", 
             RowBox[{
             "InterfacialThinFilmNLS`Private`vPos", "\[LeftDoubleBracket]", 
              "1", "\[RightDoubleBracket]"}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"InterfacialThinFilmNLS`Private`Pr", "[", 
             RowBox[{
             "InterfacialThinFilmNLS`Private`thetas", "\[LeftDoubleBracket]", 
              RowBox[{
              "InterfacialThinFilmNLS`Private`v", "+", "1", "+", 
               "InterfacialThinFilmNLS`Private`voffset"}], 
              "\[RightDoubleBracket]"}], "]"}], ".", 
            RowBox[{"InterfacialThinFilmNLS`Private`inTin", "[", 
             RowBox[{
             "InterfacialThinFilmNLS`Private`vPos", "\[LeftDoubleBracket]", 
              "2", "\[RightDoubleBracket]"}], "]"}]}]}], ")"}]}], " ", 
        RowBox[{"{", 
         RowBox[{
         "InterfacialThinFilmNLS`Private`Ep", ",", 
          "InterfacialThinFilmNLS`Private`Es", ",", 
          "InterfacialThinFilmNLS`Private`Ep"}], "}"}]}]}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{
      RowBox[{"InputTransferC", "[", "___", "]"}], "/;", 
      RowBox[{"Message", "[", 
       RowBox[{
        StyleBox[
         RowBox[{"General", "::", "badargs"}], "MessageName"], ",", 
        "InputTransferC"}], "]"}]}], "]"}], 
    "\[RuleDelayed]", "\<\"unevaluated\"\>"}]}], "}"}]], "Output",
 CellChangeTimes->{3.625364343181295*^9}]
}, Open  ]]
},
WindowSize->{707, 787},
WindowMargins->{{Automatic, 330}, {61, Automatic}},
ShowSelection->True,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 439, 9, 52, "Input"],
Cell[1021, 33, 488, 10, 56, "Message"],
Cell[1512, 45, 632, 12, 56, "Message"],
Cell[2147, 59, 659, 12, 56, "Message"]
}, Open  ]],
Cell[2821, 74, 120, 2, 31, "Input"],
Cell[2944, 78, 102, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[3071, 83, 115, 1, 31, "Input"],
Cell[3189, 86, 133, 2, 30, "Output"]
}, Open  ]],
Cell[3337, 91, 1030, 27, 172, "Input"],
Cell[CellGroupData[{
Cell[4392, 122, 92, 1, 31, "Input"],
Cell[4487, 125, 141, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4665, 132, 328, 5, 72, "Input"],
Cell[4996, 139, 106, 1, 30, "Output"],
Cell[5105, 142, 114, 1, 30, "Output"],
Cell[5222, 145, 463, 9, 21, "Message"]
}, Open  ]],
Cell[5700, 157, 104, 1, 31, "Input"],
Cell[5807, 160, 108, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[5940, 165, 99, 1, 31, "Input"],
Cell[6042, 168, 2181, 41, 392, "Output"]
}, Open  ]],
Cell[8238, 212, 123, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[8386, 217, 146, 2, 31, "Input"],
Cell[8535, 221, 47294, 1074, 6157, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
